﻿Imports System.Text
Public Class MAPS
    Dim consultaEndereco As New StringBuilder()
    Private Sub MAPS_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim cidade As String = String.Empty
        Dim rua As String = String.Empty
        Dim cep As String = String.Empty
        consultaEndereco.Append("http://maps.google.com/maps?q=")
        Try
            If CADASTRO.CIDADETextBox.Text <> String.Empty Then
                cidade = CADASTRO.CIDADETextBox.Text.Replace(" ", "+")
                consultaEndereco.Append(cidade + "," & "+")
            End If
            If CADASTRO.ENDTextBox.Text <> String.Empty Then
                rua = CADASTRO.ENDTextBox.Text.Replace(" ", "+")
                consultaEndereco.Append(rua + "," & "+")
            End If
            If CADASTRO.CEPMaskedTextBox.Text <> String.Empty Then
                cep = CADASTRO.CEPMaskedTextBox.Text.ToString()
                consultaEndereco.Append(cep)
            End If
            WebBrowser1.Navigate(consultaEndereco.ToString())
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString(), "Localização indisponível para exibição no Mapa.")
        End Try
    End Sub
End Class